;Start of program
	XPROG
		;BLOCK
		;Form force variable
	XPUSH
	L1
	XPUSH
	L2
	XMAKFORCE
	22
	4
		;Move
	XMOVE
	L3
	4
		;Block end cleanup
	XDESFORCE
	22
		;End of BLOCK
	XENDP
		;End of program